home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / search.tes < prev    next >
Text File  |  1991-07-11  |  4KB  |  119 lines
  1. ! - - - - - - - - - - - - - - - - - - - - - - - !
  2. !          SEARCH.TEC            !
  3. !         !!SEARCH.TEC V39.00!!        !
  4. !                        !
  5. !     Last edit on  2-Jun-83 by MHB        !
  6. ! - - - - - - - - - - - - - - - - - - - - - - - !
  7. !     Invoked by:  MUNG SEARCH        !
  8. ! - - - - - - - - - - - - - - - - - - - - - - - !
  9. ! DIALOGUE:                    !
  10. !                        !
  11. !  Output <TT:.SRH>:  Output log file        !
  12. !      Input <.MAC>:  Input file spec(s)    !
  13. !              (*.MAC if first time)    !
  14. !              (.MAR if VAX/VMS)        !
  15. !         Lines <3>:  Number of lines to verify !
  16. ! (Absolute) Search:  String to search for    !
  17. !           Replace:  Replace for found string    !
  18. !              (if /CHA specified)    !
  19. !    Detach <No>:  Run detached?        !
  20. ! - - - - - - - - - - - - - - - - - - - - - - - !
  21. ! OPTIONAL SWITCHES:                !
  22. !                        !
  23. !   Output<TT:.SRH>:                !
  24. !    /CHA    Change found string        !
  25. !    /MAT    Report only files with matches    !
  26. !        (No end list of no-match files)    !
  27. !    /ESC    ESCape is the only delimiter    !
  28. !        for Search and Replace strings    !
  29. !    /DIR    Compile a directory of the    !
  30. !        files now and use it to search    !
  31. !    /ABS    Exact case matches are required    !
  32. !        and TECO special search match    !
  33. !        characters must be entered as    !
  34. !        control characters (i.e., not    !
  35. !        with an uparrow)        !
  36. !                        !
  37. !    Input<.MAC>:                !
  38. !    /ALL    List all file names in main    !
  39. !        part of log whether they were    !
  40. !        match or no-match        !
  41. !                        !
  42. !      Lines <3>:                !
  43. !    /x    Use "x" as the found string    !
  44. !        flag character instead of "~"    !
  45. ! - - - - - - - - - - - - - - - - - - - - - - - !
  46. ^D 4#2ED 0^X 4,128ET @EI%%
  47. @^U1/.U0 J Q3-^^-"N ^^*U3 72< Q3@I%% > @I%
  48. % G5 @I%
  49. % ' Q3@I%% Q3@I%% @I%Page % Q6\ 65+^S< Q3@I%% > ^^-U3 @I%
  50. % 0,.X7 0,.K Q0J -Q1L .,Q0:X7 J QF@I%% 0,.:X7 0,.K Q0J Q1+1L Q0,.:X7
  51. G7 ^YM9 ^YK Q0J/
  52. @^U2/+0U2 HX0 HK ET&512"N 0:W-4"E 0,1ET 27^T 1,0ET ^^<^T ' '
  53. !MAIN! EUU0 -1EU :G0 HT Q0EU !CHAR! ^TU0
  54. Q0-27"E 13^T 10^T @O%DONE% '
  55. Q2&2"E Q0-13"E ^T^[ @O%DONE% ' '
  56. Q0-21"E ZJ 0L ZK
  57.  !LINE! 13^T ET&512"N 0:W-6"N
  58.  0,1ET 27^T 1,0ET 0:W-4"E ^^[^T ' ^^K^T 13^T
  59.  0,1ET 27^T 1,0ET 0:W-4"E ^^[^T ' ^^A^T 13^T 10^T
  60.  ZJ 0L ."N EUU0 -1EU T Q0EU @O%CHAR% ' @O%MAIN% ' '
  61.  10^T @O%MAIN% '
  62. Q0-127"E Z"N ZJ -1AU0 -D Q0-32"L
  63.  Q0-10"E ET&512"N 0:W-6"N 2< 0,1ET 27^T 1,0ET 0:W-4"E ^^[^T ' ^^A^T > 10^T @O%CHAR% ' ' '
  64.  @O!LINE! ' ET&2"E @O!LINE! ' 8^T 32^T 8^T ' @O%CHAR% '
  65. ZJ Q0@I%% @O%CHAR%
  66. !DONE!/
  67. @^US/US QS"N QS\ | @I%No% ' ^SC 5+^S< @I% % > ZJ @I% file% QS-1"N @I%s% '/
  68.  
  69. ! Output log file !
  70.  
  71. HK @I%Output <TT:.SRH>: % M2
  72. J :@FS%/C%%U8 Q8"S ::@FS%H%%"S ::@FS%A%%^[ ' 8U7 | 0U7 '
  73. J :@FS%/A%%"S ::@FS%B%%"S ::@FS%S%%^[ ' Q7#1U7 '
  74. J :@FS%/E%%"S ::@FS%S%%"S ::@FS%C%%^[ ' Q7#2U7 '
  75. J :@FS%/M%%"S ::@FS%A%%"S ::@FS%T%%^[ ' Q7#4U7 '
  76. J :@FS%/D%%"S ::@FS%I%%"S ::@FS%R%%^[ ' Q7#8U7 '
  77. Z"N J -1EJ-5"E :@S%]%"U :@S%>%^[ ' ' :@S%.%"U ZJ @I%.SRH% ' ' HX9
  78.  
  79. ! Input file(s) !
  80.  
  81. HK -1EJ-5"E @I%   Input <*.MAR>: % | @I%   Input <*.MAC>: % ' M2 Z"E @I%*% '
  82. < J -1EJ-5"E :@S%]%"U :@S%>%^[ ' ' :@S%.%"U ZJ @I%.MAC% -1EJ-5"E -D @I%R% ' '
  83.   J :@FS%/A%%"S ::@FS%L%%"S ::@FS%L%%^[ ' -1U5 | ^^*U5 '
  84.   HX5 @EN%^EQ5% [5
  85.   HK -1EJ-5"E @I%    Input <.MAR>: % | @I%    Input <.MAC>: % ' M2 -Z; >
  86.  
  87. ! Lines !
  88.  
  89. 0,4ET HK @I%       Lines <3>: % M2 ^^~UF J :@S%/^EX%"S -1AUF @FR%% '
  90. 3U1 Z"N J \U1 ' @^U3/0UT 0UC 0,0XC 0UM 0U4 0,0X4
  91. < :]5; @EN%^EQ5% < :@EN%%; G* ^YX5 HK %T^[ Q5U3 / Q8"T
  92. :@^U3/EA :@EB%^EQ5%"U %C^[ 9@I%% G5 13@I%% 10@I%% H:XC @EW%% F< ' Y @EW%%/ |
  93. :@^U3/:@ER%^EQ5%"U %C^[ 9@I%% G5 13@I%% 10@I%% H:XC F< ' Y/ ' :@^U3/ 1U6 < /
  94.  
  95. ! Search [ and replacement ] string(s) !
  96.  
  97. !SRH! HK Q7&1"N @I% Absolute search: % | @I%          Search: % ' Q7M2
  98. Z"N J G3 @I/ J < 0,Q7&1ED S/ ZJ 27@I// @I/; 1,0ED/
  99. Q8"T HX3 HK @I%         Replace: % Q7M2 J G3 @I/ FR/ ZJ 27@I// '
  100. @I/ M1 > 1,0ED/ HX3 @O%SRH% ' 4,0ET
  101. HK G3 ZJ @I/ -^E%6^[ ^N^_; / Q8"T @I/EA P @EW%%/ | @I/Y/ ' @I/ > /
  102. Q8"T @I/EA Q3-^^-"E EC %M^[ | EK ' @EW%% / '
  103. @I/HK G5 13@I%% 10@I%% J Q3-^^*"E %4^[ 9@I%%/ Q7&4"F @I/ H:X4/ ' @I/ '
  104. Q3+1"E 72< @I%*% > 13@I%% 10@I%% HM9 ' HK > >
  105. HK 72< @I%*% > 13@I%% 10@I%% 13@I%% 10@I%%
  106. QTMS @I% searched.% 13@I%% 10@I%%
  107. Q8"T QMMS @I% modified.% 13@I%% 10@I%% '
  108. QC"N QCMS @I% not found:% 13@I%% 10@I%% GC '
  109. Q4"N Q4MS @I% with no matches/ Q7&4"F @I/:/ | @I/./ ' @I/% 13@I%% 10@I%% G4 '
  110. HM9 EF HK/ HX3
  111.  
  112. ! Detach? !
  113.  
  114. HK @I%     Detach <No>: % M2 :Q9"N @EW%^EQ9% @^U9/PW/ | @^U9/T/ '
  115. Z"N J 0A&(32^_)-89"E 0,64ET ' ' :@EG%%^[
  116. HK < :]5; Q7&8"N @EN%^EQ5% J < :@EN%%; Q5\ 10@I%% G* 10@I%% > |
  117. J Q5\ 10@I%% G5 10@I%% ' > < -Z; ZJ -D 0L ZX5 -L \U5 0L ZK [5 >
  118. HK Q7&1"N -1^X ' M3 EX